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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
ALL RIGHTS RESERVED. > 
bk 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND ith THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TUAR RE OR OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. . 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ® 
fe 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
*® 
& 
SORA REE EAE EEE 
Revision History: 
NO DATE PROGRAMMER PURPOSE 
00 20-DEC-77 K.D. MORSE ADAPT VERSION ¥04=000 FOR PATCH. 
01 27-DEC-77 K.D. MORSE CHANGE DBG$_RST_BE 
GLOBAL PAT$GL_RST T BEGN. THAT 
IS INITIALIZED IN-PATSFREEINIT. 
02 11-JAN-78 K.D. MORSE ADD FIELDS FOR DSTR_ACCESS. 
03 28-FEB-78 K.D. MORSE ADD RST SIZE LITERA 
04 O8-MAR-78 K.D. MORSE ADD SYMBOL DSC$W_MAXLEN DUE 
TO NEW SRMDEF.MDC WHICH DOES 
NOT INCLUDE IT. 
05 18-MAR-78 K.D. MORSE REMOVED ALL DSC DEFINITIONS 
AS THEY ARE NOW IN SRMDEF.MDL 
EXCEPT PATCH MIN AND MAX VALUES 
06 06-apr-78 K.D. MORSE CHANGE GST_E_NAME_ADDR FROM 10 TO 12 
ADD NEW FIELBS FOR MC_GBLxxx AND 
NEW DSC$... FOR GSD TYPES. NEW 
MC_GBL_LOCKED FIELD TELLS SYM _TO VAL 
WHEN IT IS OK TO CONSULT THE GST? 


Modified by: 


v03-002 mMTROO22 Mike Rhodes 53-May-1983 


Change runtime symbol table name table entry size to correctly 


reflect symbol size (symbols upto 31 characters). 


M 
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v03-001 grevye Mike Rhodes 16-Aug-1982 
dify file names to remove duplicate file names between code 
| require files. 


' 

i 

i 

i 

i 1.07 gemepoe? Chris 6-Jan-1980 18:00 

i Pulled some Got tntelacs "ter the DSC structure that were added 
& to the system Libraries. 

ic 


~ 


= 


L] 
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‘ee 

! Since the PATCH free-storage manager currently 

‘ works in ‘units’, we define the following macro to 

! convert a byte-unit quantity into whatever units it 

' requires, We expect to change the free-storage manager 

! to work in byte units, so eventually this macro should 

! just reduce to its actual parameter. for now, however, 

: it ‘rounds up’ to the smallest number of LONGWORDS 

; which are required to contain the indicated number of 
lo 


bytes. 
MACRO 
RST_UNITS( bytes ) = 
. ( ((bytes) + Zupval-1)/Zupval ) 
' eo 
MACROS: | 
MACRO | 


YES_NO( question ) 
! Ask a question and return the Y/N answer. 
QUERY( UPLIT( ZASCIC question )) %; 
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e+ 


ee et ee 


RST=-Pointers 
So-called RST-pointers are referred to throughout the RST 


' code. They are simply the means of access to RST data 
' structures, and we perveesty talk of them as if they were 
! their own TYPE so t 

' detail if/when we feel it is necessary. 


at we can change this implementation 


For now, RST-pointers are 16-bit items which are manipulated b 


! the special RST storage routines PATSRST_FREEZ and PA $RST_RELEASE. 


No code outside of the RST-DST/PATCH interface module knows 
anything more about the implementation of RST-pointers than that. 
(Other modules declare and use RST-pointers via macros, etc.) 


If any change is to be made to what RST-pointers actually 

are, there are only 2 criterion that the new ones much uphold: 

1) RST-pointers must be storable in the NT, MC, SAT and LVT fields 
which are defined for them, and 2) they must be able to provide 
access to the RST_NT and RST_MC structures defined below. 


The following macro is provided so that one can declare REFs 

to such pointers. Some code also sg Hh ZSIZE to this macro 

to get the size of an RST-pointer. Note that no code should. 
declare an occurrence of an RST-pointer, since we do not define 
that you can do anything meaningful with such a thing. This is 
because we want to enforce the usage of REFs to the structures 
we declare to access RST data structures. (e.g. we use 

“REF MC_RECORD"’ to say that we are declaring a pointer to | 

an MC record. REFs to MC_RECORDS also happen to be RST-pointers, 
but we don't want to build-in this coincidental characteristic.) 


MACRO 


RST_POINTER = VECTORC1,WORD) %; 
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Pathnames 


Symbols in PATCH are actually made up of sequences of 

symbols or ‘‘elements’’. The concatenation of such 

elements, along with the element separation character (\), make 
up a so-called pathname because the sequence represents the 
path which one must make thru RST data structures to get to 

the desired symbol. 


We represent strings internal to PATCH by passing around 

so-called counted string pointers. They are simply LONGWORD 

pester to a count byte followed by that many characters. 
he CS_POINTER macro allows us to declare occurrences, REFs, 


' and take the XSIZE of this type of datum. 


Pathnames, then, are represented with vectors of CS_POINTERS. 


! Like duplication vectors, they terminate with a 0 entry 
' for ly ey pao ease, but also have a maximum size so that 


eclare them LOCALLy. 
The following macros are used in declarations to not build-in 


we can 


' the above conventions. 


MACRO 


! PATCH tells the RST module about ASCII 
: serge 
CS_POINTER = REF VECTORC1,BYTE 


! Symbol pathnames are O-ended vectors 

! of CS_POINTERs. There is a maximum 
Length to pathnames so that routines can 
: are 


dec LOCAL vectors of pathname pointers. 


LITERAL 
MACRO 


MAX_PATH_SIZE = 10; 
PATHNAME_VECTOR = VECTORE MAX_PATH_SIZE +1, XSIZE(CS_POINTER) J %; 


b gees ing a counted string pointer. 
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lee 
Uverall Characteristics of the RST/DST, etc. 


lee 
;; The PATCH Runt ime a Table (RST) free-storage area 
: begins at a fixed virtual address. This GLOBAL is used 
: directly by some of the RST structures since RST=-pointers 
need this information. 


LITERAL 
: THE RST IS A FIXED SIZE BUT THIS FACT IS ONLY USED TO 
: ALLOW THE INITIALIZATION OF THE OTHER SIZE LITERALS. 
! THESE LITERALS ARE USED TO LIMIT THE AMOUNT OF RST STORAGE 
: ALLOCATED FOR VARIOUS PARST OF THE RST. 


RST_TOTAL_SIZE = 65000, ! RST IS 65K BYTES 


! THE "SET MODULE'’ COMMAND DOES NOT ALLOCATE ALL THE FREE STORAGE 
i AVAILABLE IN THE RST. INSTEAD, MODULES WILL BE ADDED AS LONG AS 
i THERE IS AT LEAST RST_AVAIL_SIZE BYTES AVAILABLE IN THE RST. 


RST_LAVAIL_SIZE = 3000, ! STORAGE LEFT FOR PATCH ITSELF 


! DURING THE RST INITIALIZATION, SPACE IS TAKEN TO SET AS MANY MC'S 
! AS WILL LEAVE RST_MODU_SIZE BYTES FOR SUBSEQUENT SET MODULE COMMANDS. 
' CURRENTLY THE MC SPACE-IS 50% OF THE RST. 


RST_MODU_SIZE = (RST_TOTAL_SIZE-RST_AVAIL_SIZE)/2, 


The SAT and LVT are allocated contiguous storage 

by tallying up the number of entries in each table 

we will get from each module we are to initialize. 

The following two minimums are used to begin the 

tally so that the tables will actually be somewhat 
larger than what the MC data implies. The SAT and LVT 
minimums must be at least 1 so that we will never ask 
the free storage manager for 0 bytes. 


SAT_MINIMUM = 10, ! Minimum number of SAT entries. 
LVT_MINIMUM = 10,  ! Minimum number of LVT entries. 


: The NT, however, has no such fixed size. MC statistics 
: gathering tallies up the number of NT entries, though; 
! we begin such a tally at NT_MINIMUM. 


NT_MINIMUM = 0, ! Minimum number of NT entries. 


We will use byte indices to fetch RST-pointers to the NT 
from the NT hash vector. This vector, then, must contain 
NT_HASH_SIZE entries, each of which must be Large enough 

to store an RST-pointer. See BUILD_RST() in DBGRST.B 

Also see field NI_FORWARD of the NT record definition 

and the corresponding warning in the routine UNLINK_NT_RECS. 


_— i 
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NT_HASH_SIZE = 2X'FF', 


! NT hash vector size. 


' We will never print s Py ear i the 
 eeeee bound for ‘‘symbo 
e offset is greater then RST_MAX “OFFSET 


RST_MAX_OFFSET = %X'100'; 


4 

' Since pcope definitions are recursive, we must 

i stack ROUTINE BEGINS in the routine ADD_MODULE. 

i It is mo coincidence that this stack limit is the 
i same as the Limit on the Length (in elements) of 
‘ symbol pathnames. 


LITERAL 
MAX_SCOPE_ DEPTH = MAX_PATH_SIZE; 


' Routines can be nested to a maximum depth. 
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| lee 
: Descriptors 
{just as the SRM defines various ‘system wide’ descriptor 
: formats, the RST modules use a few more descriptors 
: of its own invention. They are as follows: 
‘ee 
Value Descriptors 
i value Descriptors are used to pass around all needed 
! information about a value which has been obtained 
! from the RST data base. for now they are simply 
: 2-longword blocks: 
! leona Longword------ 
| ennnnnn== 
: ! NT_PTR ! 
: | memmwewoooeooocecce : 
' actual value 
; 3, Een ; 
! Value Descriptors must be accessed via the following 
: field names. 
FIELD 
. VALU_FIELD_SET = 
VALU_NT_PTR =C 0,0,16,0 ], ! Associated NT pointer. 
ae VALU_VACUE =C€ 2,0,32,0 J ! The actual value. 
+ 
! Declare an occurrence or REF to a VALUE_DESCRIPTOR 
! via the following macros. 
LITERAL 
VALU_DESC_SIZE = 8; ! Each one is 2 Longwords long. 
MACRO 
VALU_DESCRIPTOR = BLOCKC VALU_DESC_SIZE, BYTE J] FIELD( VALU_FIELD_SET ) 2%; 


4 
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Array Bounds Descriptor 
An array bounds Descriptor is used to pass around all needed 


information about an array and its associated dimensions. = 

Like VALU_DESCRIPTORs, they are simply 2-longword blocks, 

but this might change. Fl 
leaecea Longword escece ' 


Length of array 


1 
i 
i 
' 
' 
' 
i 
i 
' 
i 
i 
i 
i 
i 
( _( $netaemsennenamas 
: 
! Such Descriptors must be accessed via the following 
field names. 


ive 
. 


FIELD 
, ARRAY_BNDS_SET = 


ARRAY_ADDRESS 
ARRAY_LENGTH 


C 0,0,32.0 ], ! Beginning address of array. 
C 4,0,32,0 J ! Size, in bytes, of array. 


‘+ 
: Declare an occurrence or REF to an array bounds 
descriptor via the following macros. 


LITERAL 
ARRAY_BNDS_ SIZE 


8; ! Each one is 2 longwords long. 


MACRO 
ARRAY_BNDS_DESC = BLOCKL ARRAY_BNDS_SIZE, BYTE J] FIELD( ARRAY_BNDS_SET ) 2%; 


'¢ 


FIELD 


H 
| PATRTS.REQ;1 16-SEP-1984 16:52:48.9 Page 10 


+ 
- 


Vector Storage Descriptors 


So-called ‘‘vector storage’’ is the storage which 

we allocate in relatively 7 chunks for the 

explicit purpose of subsequently re-allocating the same storage 
to someone else in smaller, variable-sized chunks. 


This facility has been implemented to interface between 

the way that the standard PATCH storage manager 

works, with the way that the RST routines really 

want to ‘allocate’ storage. We satisfy the former by 

only asking for orgs chunks (and paying the 

associated overhead), and we pottsty the latter by 

‘doling’ out small-sized chunks with little overhead. 

We can do this because we never have to freeup these. 

chunks so don't have to store the would-be-needed pointers, etc. 


t=-Z%size(RST_POINTER)=-=-! 


tetmone(i.e. word) --<--- : 


end of STORage 


nxt free rec in STOR 


Such descriptors are accessed via the 
following field names. 


The ‘begin’ field is the one which various routines 
look at to decide if the field descriptor is valid. 


STOR_DESC_SET = 

STOR_LONG_PTRS =(C 0,0, 8,0], ! Pointer type. 1 => full word pointers, 
! Q => RST-pointer access. 

STOR_BEGIN RST =[( 1,0,16,0 ], ! RST pointer to seg tage of storage. 

STOR-END_RST =C{ 3,0,16,0 }: ! RST pointer to end of storage. 

STOR_MARRER ={€ 5,0,16.0 Current place in storage 


TES; 


: Declare an occurrence or REF to a vector storage 
descriptor via the following macros. 


LITERAL 


(RST pointer to next available byte). 
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STOR_DESC_SIZE = 7; ! 3 RST pointers take 6 bytes; 
: the pointer-type byte takes 1 more. 


MACRO 
VECT_STORE_DESC = BLOCKE STOR_DESC_SIZE, BYTE J] FIELD( STOR_DESC_SET ) %; 


—— 0 eee eee 


—____— 
} 4 
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* 
* 
+ 


The Module Chain (MC) is a chain of fixed-size i 
records each of which has an RST_MC structure: 


'<byte><byte>!<byte><byte>! :* 


| ewecccccccce | eamenncnonne ' Fl 
ix! flags! type Next mC : 


i DST Pointer 
number “ot NT entries / 


| 
| 
i 


! first none bytes ' count | 


‘ nore name bytes | 


; vector storage descriptor for SAT recs ! 
; vector storage descriptor for LVT recs ! 
: number of SAT entries | 


number of <7 entries | 


The reason for using our own structure here, 
(instead of a BLOCK), is because we access 
_ ac records with RST-pointers. 


LITERAL = 
: MC records are fixed-size. : 
RST_MC_SIZE = 57; ! Each one takes this many bytes. | .* 
STRUCTURE ; | id 
RST_MC C off, pos. siz, ext; N=1, unit=1 ] = 
CN * RST_MC_SIZE J Ll 
BEGIN mA 


EXTERNAL PAT$GL_RST _BEGN; 
RST _MC + .PATSGC_RST_BEGN 
) +"offeunit , 
END <pos, siz, ext> 6 


'¢ 
MC records have the following fields. Ll 


poe serniasnenpmiseiien 
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FIELD 
MC_FIELD_SET = 
SET 


| ##ee Some fields (up to NAME_ADDR) mu 
: with the corresponding ones in R 


MC_NEXT 
MC “TYPE 2 


MC_IS_GLOBAL = = 
MC_IN_RST s 
MC_IS_MAIN = 


MC_GBL_LOCKED 


MC_LANGUAGE = 
MC_IS_DYING = 
MC_not_free 

La) 


C“DST“START == 
MC“GBL-NT_PTR = 


MC_NAMES 
MC"NAME_CS 


MC_NAME_ADDR 


! #e* leave up to 
MC_NT_STORAGE = 


! ##* leave up to 
MC_SAT_STORAGE = 


! ##* leave up to 


Sassininaineesionietsteinndinneintticemmtanpestdiniioas 


E $20:"8°5 
c 3.8. 1.1 
Bete tet 


C 
C 3.2, 1,1 


0 
WN 
. 

~m 
— 
5 

_ 


rw FF 


= C 13,0, 8,0 


3: 
], 
1, 
Be 


st 
ST 


K 4 
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be alligned 
JNT struttures. 


Next MC record in chain. 
DST record type oyse. 
Must be DSCSK_DTYPE_MOD 
0, for ‘normal’ MCs, 1 for the 
MC record we ‘hang’ globals off. 
Whether or not this module 
has been initialized into the RST. 
Whether or not this module 
contains the program's transfer 
address. 
1 = Do not look at GST, 0 = OK. 
This is for SYM_TO_VAL, and 
goptios to the global MC only. 
3-BIT encoding of the Language 
which the module is written in. 
Vector storage for this MC is 
about to be freed up. 
Used in NTs only. 
Record ID of first record for this module. 
Pointer to the single ‘fake' 
NT record for globals. NOTE: 
-NT_PTR and _DST_START are 
mutually exclusive. ; 
Number of NT records required. — 
Name of Module is a counted string. 
A dotted reference to this field picks 
up the count, an undotted one 
addresses the counted string. 
The name string iteetf. An undotted 
reference to this field addresses 
ps the MC name, a dotted reference 
picks up the Ist character of the name. 


byte 27 inclusive for _NAME_ field. 


C 28,0, 8,0 


byte 34 inclusive for 


C 35,0, 8,0 


byte 41 inclusive for 


], 


j, 


Vector storage descriptor for NT records. 


! A direct reference to this field is 


equivalent to the STOR_LONG_PTRS 
field of the storage descriptor. 


_NT_STORAGE field. 


Vector storage descriptor for SAT records. 


' A direct reference to this field is 


equivalent to the STOR_LONG_PTRS 
field of the storage descriptor. 


_SAT_STORAGE field. 


——_—_—_— 
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MC_LVT_STORAGE = ( 42,0, 8,0], : vector storage descriptor for LVT records. 
! A direct reference to this field is 
! eguivalent to the STOR_LONG_PTRS 
! field of the storage descriptor. 


! #** leave up to byte 48 inclusive for _LVT_STORAGE field. 


MC_STATICS a 23-2. ol Q. ! Number of SAT records required. 
MC_LITERALS = 23° oatel as ! Number of LVT records required. 
MC_GBL_SAT_PTR = ( 53,0,32,0 ' Pointer to the single ‘fake' 
! SAT record for globals. NOTE: 
!  SAT_PTR and _LITERALS are 
tes ! mutually exclusive. 


'¢ 
You declare an occurrence or REF of an MC datum via: 


MACRO 
MC _RECORD = RST_MCC RST_MC_SIZE, BYTE J FIELD( MC_FIELD_SET ) 2%; 


M 
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r- 
' 
] 


lee 
[The Name Table (NT) is a set of doubly-linked records 
| with the following format: 


'<byte><byte>'<byte><byte>! 
|(eeeeeeeesece leeese ececceceee ! 
x! flags! type: Next NT 


DST Pointer : 
back hash forw hash 


first name bytes count ! 


more name bytes ; 


i more name bytes 


Since access to such records will be via so-called RST-pointers, 
(16-bit pointers which we always add a global to before using) 


' 

i 

i 

i 

i 

' 

i 

' 

' 

' 

i 

' 

' 

more name bytes |! 
' 

i 

i 

i 

i 

i 

i 

we define the following structure to localize this implementation 
i 


detail. 
++ 
LITERAL 
RST_NT_OVERHEAD = 13, ! Number of bytes in NT record excluding those 
: taken up M the name. (So that this 
! number + .NT_PTRC NT_NAMES_CS J] gives 
! the length of the NT record in bytes.) 
' (This is solely for the benefit of routines 
! unlink _nt_recs, add_nt, and add_gst_nt.) 
PST_NT_SIZE = 44; ! A static NT record would take a max # of bytes. 
! (Dynamically-allocated ones usually take less). 
STRUCTURE 


RST_NT C off, pos, siz, ext; N=1, unit=1 ] = 
CN * RST_NT_Size J 


get 


EXTERNAL PAT$GL_RST_BEGN; 
RST_NT + .PATSGC_RST_BEGN 
) + of feunit 

END <pos, siz, ext> 


Access to an NT chain is via a ‘hash’ vector. 

Conceptually, this is a vector of RST-pointers, and 

we define the following macro to declare REFs or occurrences 
of these elements. (because we may decide 

to change their representation) 


[~ 


PA 
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MACRO 
NT_HASH_RECORD = VECTORC1,WORD) 2%; 


NT records have the following fields. 


' 

' 

} 

! Note that NT_FORWARD must be the first 

! field in the record so that unlink_nt_recs 
: can over Lay NT _FORWARD and a given entry 

' 


N 
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Next NT record in hash chain. 
FORWARD must be first. See above. 
DST record type Pye, (from SRM), 
T_IS_GLOB 


AL. 
Whether or not fhe symbol is GLOBAL. 
n NTs 


Unsed in NTs only. => symbol's 
LB and UB are not 0. 

Pointer to associated DST record. 

Value of symbol when it is 

bound only to a GST record. 

Pointer to NT record for symbol 
that is ‘above’ this as far as 


Backward NT hash chain Link. 
Name of symbol is a counted string. 
A dotted reference to this field picks 
up the count, an undotted one 
addresses the counted string. 
The name string itself. An undotted 
is field addresses 
only the MC name, a dotted reference 
s 


in the NT_HASH_VECTOR. 
FIELD 
sat NT_FIELD_SET = 
! ##*@ Some fields (up to NAME_ADDR) must be alligned 
: with the corresponding ones in RST_MC structures. 
NT_FORWARD =C{ 0,0,16,0 J, 
NT_TYPE =C{ 2,0, 8,0], i 
! or unused if 
NT_IS_GLOBAL = 3. » Wak ae : 
NT-NOT_FR = ols Go As ! Used in MCs but not 
NT-IS_BOUNDED = Selo tet Be 
NT_DST_PTR = f 4,0,32.0_.), i 
NT_GBL_ VALUE = 4,0,32,0], 
NT_UP_SCOPE ={ 8,0,16,0 J, 
i scope is concerned. 
NT_BACKWARD = f 10,0,16,0 J, \ 
NT_NAME_CS = ( 12,0, 8,0 J, 
i 
! 
NT_NAME_ADDR = ([ 13,0, 8,0 ] 
reference to t 
i pic 
TES; 


'¢ 


! You define an occurrence or REF to an NI record via: 


MACRO 


NT_RECORD = RST_NIC RST_NT_SIZE, BYTE] FIELD( NT_FIELD_SET ) 2; 


up the Ist character of the name. 


oe 
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ee ed eed Be ee ee 


++ 


The Static Address Table (SAT) is a vector of 
ne records (blocks) with the following 
ormat: 


'<byte><byte>!<byte><byte>! 


i lower bound address 


upper bound address ! 


The lower and upper bound address fields contain the 


! beginning and ending virtual addresses which were 


bound to the symbol by the Linker. : : 

The NT-pointer field contains an RST-pointer into 

the name table (NT) for the NT entry which corresponds 
to this symbol. 


Overall Structure: 


Logically, the SAT is a sequence of fixed-size records 
ordered on the _UB field so that we can search them sequentially. 
Physically the storage is actually discontiguous, 
space being associated with the module the space was allocated 
on behalf of. Sequentially access to the SAT is that which 
is provided and defined by GET_NEXT_SAT in the following 
manner: 


1) call GET_NEXT_SAT( SL_ACCE_INIT ) 
to set up to begin scanning the SAT 
n 
2) call ptr = GET_NEXT_SAT( access_type ) 


to have ‘ptr’® set to the next SAT record, where 
the notion of ‘next’ is defined by ‘access_type’. 


the 


Currently 3 access types are defined. _RECS and _SORT both 
ask for the next sequential record in a sogrees sense. (i.e. | 
records marked for deletion are quietly skipped over). The ending 
criterion for _RECS access is that there are no more records left, 
while _SORT access, expected to be used with the ‘shell’ sort, 
ends each time Like _RECS does but at that time causes 

the access routine to restore the context which it saved after 

the last _SORT call so that subsequent _RECS calls scan from 

where the» left off last time. 

In both c ses 0 is returned in ‘ptr’ when 

there are no more records for the indicated access type. 


For the type of sequential access we need when moving 


endangered SAT/LVT records to storage not DYING 
we also define a third access mode called SL_ACCE_FREE. 
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This mode asks for modules _IN_RST AND _IS_DYING to 
be skipped over so that only pointers to ‘Safe’ records 
are returned. 


In all cases, the same _INIT code must be used to 
‘start off’ the access sequence, and no concurrent Ottses on 
is allowed except for the Limited type supported via RECS/SORT. 


LITERAL 
SL_ACCE_INIT = 0, ! See above. ‘‘SL'' <=> SAT/LVT 
SL_ACCE_RECS = 1, 
SL_ACCE_SOR1 = 2, 
SL_ACCE_FREE = 3; 


1+ 
! SAT/LVT Correspondence 


' 

' 

' 

: While the SAT and LVT are as similar in structure as they 
: are now, the two are manipulated by the same routines as much 

: aS possible. This will remain OK as long as the fields which 

‘ must correspond still do. See the ‘Implicit Inputs’’ section 

of the common routines for details. 


+ 
SAT records have the following fields. 


FIELD 
cst SAT_FIELD_SET = 

: #*e* The SAT and LVT structures must be alligned so that 
; the _NT_PTR fields match, and so that the _LB and _VALUE 
: fields Overlap. The latter must be true only as long 
: as the two share a common sort routine which relies on 
4 this allignment. The former must be true as tong as 
: the two share any routines which access SAT_NT_PIR 
; (COMPRES_SAT_LVT, DELE_SAT_LVT, etc). 


SAT_NT_PTR = 
SAT_LB =C€ 2,0,32,0 J, ! Lower bound static address. 


_ SAT_UB C 6,0,32,0 ] ! Upper bound static address. 


'¢ 

! You declare an occurrence or REF of an SAT 
: the macro, SAT_RECORD. If you want the %S 
a pointer to such a thing, use Zsize( SAT_ 


via 
R . 


t 


datum 
IZE of 
POINTE 
LITERAL 

RST_SAT_SIZE = 10; ! Each SAT record takes this many bytes. 


MACRO 


C 0,0,16,0 J, ' Points to associated NT record. 


ee en ee ee ee ee ee ee ee 


PATRTS.REQ;1 


SAT_RECORD 
SAT_POINTER 
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= BLOCKE RST_SAT_SIZE, BYTE J] FIELD( SAT_FIELD_SET ) %, 
= REF BLOCKE RST_SAT_SIZE, BYTE J] %; 


| 
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e+ 

The Literal Value Table (LVT) is a vector of 
fixed-size LVT records each of which has the 
following format: 


'<byte><byte>!<byte><byte>! 


! me eS em eR ot at ee ee en ' 
NT-pointer | 


‘ literal value : 


The value field contains the longword value 

: which is bound to the Literal. 

The NT=pointer is an RST=-pointer to the NT record 
! for this symbol. 


Overall Structure: 


Logically, the LVT is a sequence of fixed-size records _ 
ordered on the _VALUE field so that we can search them sequentially. 
: Physically the storage is actually discontiguous, 
space being associated with the module the space was allocated 
on behalf of. Sequentially access to the LVI is that which 
is provided and defined by GET_NEXT_LVT using the same 
control Literals and the same mechanisms as are described 
for the SAT, above. 


ee ee ee ee ee ee 


'¢ 
LVT records have the following fields. 


FIELD 


st LVT_FIELD_SET = 
! ###* The SAT and LVT structures must be alligned so that 
: the _NT_PTR fields match, and so that the _LB and _VALUE 
: fields Overlap. The latter must be true only as long 
: as the two share a common sort routine which relies on 
: this allignment. The former must be true as long as 
; the two share any routines which access SAT_NT_PIR 
: (COMPRES_SAT_LVT, DELE_SAT_LVT, etc). 


LVT_NT_PTR =C{ 0,0,16,0 J, ! Pointer to associated NT record. 
ons LVT_VALUE =C€ 2,0,32,0 ] ! Value bound to the Literal. 


'¢ 
You declare an occurrence or REF of an LVT datum via: 


LITERAL : 
RST_LVT_SIZE = 6; ! Each LVT record takes this many bytes. 


| 
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MACRO 


LVT_RECORD 


F 
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= BLOCKEC RST_LVT_SIZE, BYTE J] FIELD( LVT_FIELD_SET ) 2%; 


PA 
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'e¢ 

: The format of DST records is defined as a BLOCK 
: (even though the records are variable sized) 

: with the following fields: 


FIELD 
ast DSTR_FIELD_SET = 
DSTR_SIZE = 0,0, 8.0 J, ! First byte is record size in bytes. 
DSTR_TYPE = 1,0, 8,0 ;" ' Type of DST record. 
DSTR_ACCESS = Bete. Bet Be ! Access field. 
'e¢ 
! Subfields of _ACCESS are offset from the beginning 
! of the DSTR record. 
DSTR_ACCES_TYPE = C 2.0, 3-0 J, ! Type of access 
DSTR_ACCES_BASD = [ 2,2, 2,0 J, ! Based or not 
DSTR_ACCES_BREG = [C 2,4, 4,0 J, ! Associated register 
DSTR_ACCO1 =C€ 2,0, 2.0], ' Access field bits 0+1. 
DSTR_ACC23 SE fobs £e8 de ' Access field bits 2+3. 
DSTR_ACC47 =[ gene 4,0 ], ! Access field bits 4-7. 
DSTR_VALUE © §. 3,0,500)-3u ' Value field contains various things, 
! but ne are always Longwords. ; 
DSTR_NAME =C 7,0, 8,0 ] ! The symbol name field is a counted string. 
res ! (The field ref picks up the count.) 


'¢ 
You declare an occurrence or REF of a DST datum via: 


LITERAL 
DST_RECORD_SIZE = 23; ! Each DST record is at most 23 bytes Long. 


MACRO 
DST_RECORD = BLOCKL DST_RECORD_SIZE, BYTE] FIELD( DSTR_FIELD_SET ) %; 


‘ee 
! The DST record syoes are defined in SRM as ‘system-wide’ names. 
! The fields for the DSC structure are: 


! 

: dsc$w_length = 0, 0, 16, 1%, ' Length of string 

' dsc$b_dtype = ¢° 0, 8 O02, ! type of data — 

1 dsc$b_class = 3, 0, 0% ! type of descriptor 

; dsc$a_pointer = 4, 0, 32, Of, ! address of 4 : 
dsc$w_maxlen = 8, 0, 16, 1%, ! maximum Length of string 

: dsc$b_aflags = 10, 0, 8, O82, ' array flag bits 

: dsc$v_fl_column = 10, 5, 1, O%, ' FORTRAN array element storage 
; dsc$v_fl_coeff = 10, . 1, O%, ! coefficients present 

: dsc$v_fl_bounds = 10, 7, 1, O%, ' bounds information present 
; dsc$b_dimct = 11, 0, 8, O82, ! number of dimensions 
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LITERAL 


because when we are interested in what 
usually want to first divide the 


is we 


and 


'MACRO 


LITERAL 


dsc$l_arsize 
dsc$a_a 
dsc$i_mi 


dsc$k_class_a 


essentially into 


1) BLISS type ZERO, 
2) SRM atomic types (1-23), 


AAG 
roror 
ees 8 
ooo 
verere 
ees 8 


H 
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3 classes 
type a record 
range into 


' total size of array in bytes 
! address of element A (0, 0, ... 
! addressing coefficients 


class = descriptor 


3) ‘the rest’ = those which exist for DEBUG and PATCH only. 
This is what the _HIGHEST and _LOWEST symbols are for. 


! 
i 
i 
i 
i 
i 
1 
i 
We divide these types 
i 
i 
! 
i 
i 
i 
i 


DSC$W_MAXLEN 


! Variable types: 


DSCSK_DTYPE_7 


-DIYPE. 
DSC$K-DTYPE-Z1 


DSC$K_DTYPE—ZEM 
DST_TYP_HIGHEST 


Ronny a OD VNOUS WI OO 


WO OONOUFWN Or +s es es es se ee 


™ 
eS) 
. 


! DST Record Types: 


0. 16, 18: 


Unspecified. 


Bit. 
Byte logical. 
Word logical. 


Longword logical. 
Quadword logical. 


Byte integer. 
Word integer. 


Longword integer. 

Quadword integer. ; 
gong enpres 18108 floating. 
Double-precision floating. 


Complex. 


l 
Double-precision Complex. 


ASCII text string. 


Numeric string, 
Numeric string, 
Numeric string, 
Numeric string, 
Numeric string, 
Numeric string, 
Packed decima 


unsigned. 


! MAXIMUM LENGTH OF STRING FOR DESCRIPTOR 


left separate sign. 
left overpunched sign. 
right separate sign. 
right overpunched sign. 


zoned sign. 


strin 


Sequence of lnetrent Candis 
Procedure entry mask. 


Highest TYPE ty 


7 


for range chec 


e we support. 


ing) 


) 
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DST_DST_LOWEST = 183, ! Lowest DST type we support. 
: DSCSK_DTYPE_FLD = 183. ' BLISS FIELD names. 
' DSC$K— “pies “PCT = 184, ! PSECT information. 
: DSCSK_DTYPE_DPC = 185, ! PC correlation table for FORTRAN Iv+ 
: DSCSK_DTYPE_LBL = 186, ! LITERAL or LABEL, copending on 
! another field in the DST. 
: DSCSK_DTYPE_SLB = 187, ! rs in non=-MARS pF hE 
: DSCSK_DTYPE_MOD = 188, ! 8 gog'natns 97 aE, ... new MODULE. 
: DSCS$K_ =DTVPE _EOR = 189, ! of Modul 
: DSCSK_DTYPE-RTN = 190, ! Be innin of ts new ROUTINE. 
; DSCSK_DTYPE_EOR = 191, ! End of R UTINE marker. 
DST_DST_HIGHEST = at git a . ie DST type. (for range checking) 
' For now we hav e our 


e-up types to match the GSD 
! types ‘entry’ and ‘symbol definition’. 


! DSCSK_DTYPE_ENT 196: ! ENTRY (routine) global definition 
: DSCSK_DTYPE_GBL = 193; i Global symbol definition. 


‘e+ 


i! The DSTR_ACCO1 field from DST_RECORDs has the following possible values: 
LITERAL 


ACCS_LITERAL = 0, ' Literal value 

ACCS_VALUEAD = 1, ! Address of a value 
ACCS_DESCRIPTOR = ¢: i Address of a symbol's descriptor 
ACCS_REGIST = 3; i Register number 


144 
The DSTR_ACC25 field from DST_RECORDs has the following possible values: 


LITERAL 


wth yy tes 0 ' Not-based, direct 


ACCS_ = 0, 

acces “Bas thay jee = 1, potsnesed. ade 
= é. ! Based, direc 

ACCS_BASIND F $: ! Based, indirect 


'ee 
: The following Literals define various fixed-value fields found within DST records. 


LITERAL 


! Each MODULE record indicates the source code language: 


MARS_MODULE 0, ! Module is written in MARS. 
BLISS_MODULE i Module is written in BLISS. 
FORTRAN_MODULE 1; i Module is written in FORTRA 


nun 
Nm 
. 
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| toe 
! The format of GST records is defined as a BLOCK 
i (even though the records are variable sized) 
x with the following fields: 


FIELD 
SET GST_FIELD_SET = 

GST -ENTRY TYPE = f 3 . 8,0 }- ! Type of GST record. 

GST"1S_DEFN = o WO de ! This flag implies whether o no 
' the record is an eotry definition. 

GST_VALUE =C ;, 0,32,0 J, : The value of the 

; ! (This won't work or PSECTS) 

' The + may, 2 pairs are Ts for 6 

' exclusive. rere one is for r 

' records of typ 4 GST _GLOBAL_DEFN 

! second is for PEST ENTRY. DEFN onl est -PROC_DEFN. 

GST_G_NAME_CS =( 9,0, 8,0], ! The symbol name is a counted string. 
' A dotted reference to this field 
! picks up the count, an undotted 
! one aceroneny the counted string. 

GST_G_NAME_ADDR = (10,0, 8,0 J, ! The name stri ng itself. An undotted 
! reference is the address of the name, 
! a dotted one is the ist character. 

GST_E_NAME_CS = (11,0, 8,0 ], : The entry name is a counted string. 
' A dotted reference to this field 
! picks up the count, an undotted 
! one addresses the counted string. 

GST_E_NAME_ADDR = (12,0, 8.0 J, ! The name oyeing itself. An undotted 
! reference is the address of the name, 
' a dotted one is the ist character. 

GST_P_MAX_ARG = (1,0, 8.0], ! Maximum number of formal arguments. 

_ GST"P-REM_CNT = (1,0, 8,0 ) ! Remaining byte count in arg. desc. 
Ye 


'e 
: You declare an occurrence or REF of a GST datum via: 


LITERAL : 
GST_RECORD_SIZE = 27; ! Each GST record is at most 27 bytes long. 
MACRO 
GST_RECORD = BLOCKE GST_RECORD_SIZE, BYTE] FIELD GST_FIELD_SET ) 2%; 


6 
The GST record types are defined as: 


LITERAL 
! GST types: 


ttt lanseel enpetiemearetins sere 


x 
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GST_LOWEST = 1, ! We don't support global PSECTs now. 
GST_PSECT DEFN = 0, ! P=SECT record. 

GST_GLOBAC_DEFN = 1, ! A global symbol definition record. 
GST-ENTRY_DEFN = ¢° ! An entry point definition. 
GST"PROC_BEFN = 3, ! A procedure with formal arg. desc. 
GST_HKIGHEST = 3; ! Highest one we support. 


pi ----- 
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lee 

' BLISS uses ‘non-standard’ DST records to encode 

! most of its local symbol information. These records 
' are Like most DST records except that the TYPE 

' information is variable-sized. 


FIELD 
set BLZ_FIELD_SET = 
BLZ_SIZE ={C{ 0,0, 8,0], ! First byte is record size in bytes. 
! The next byte contains DSCSK_DTYPE_2Z, or we 
! wouldn't be applying this structure to a given 
' DST record. 
BLZ_TYP_SIZ =C 2,0, 8,0], ! Type info takes up this 
! many bytes. 
BLZ_TYPE =C 3,0, 8,0], ! which type of type Zero 
' this corresponds to. 
BLZ_ACCESS = f 4,0, 8.0 J, ' Access field. 
BLZ_STRUCT = 5,0, 8,0 J, ! Type of STRUCTURE reference. 
! #e#* The following only work when BLZ_TYP_SIZ is 3. 
BLZ_VALUE = f 6,0,32.0 J, ! DST VALUE field. - 
BLZ_NAME_CS = ( 10,0, 8,0 J, ! The symbol name is a counted string. 
' A dotted reference to this field 
! picks up the count, an undotted 
' one addresses the counted string. 
BLZ_NAME_ADDR = (11,0, 8,0 ] ! The name string itself. An undotted 
! reference is the address of the name, 
tes ! a dotted one is the ist character. 


'¢ 
You declare a REF to a BLZ_DST datum via: 


LITERAL ; 
BLZ_REC_SIZ = 38; ! Each DST record is at most 38 bytes long. 


MACRO 
BLZ_RECORD = BLOCKC BLZ_REC_SIZ, BYTE) FIELD( BLZ_FIELD_SET ) 2; 


'¢ 
! Tne type zero sub types, 


' as defined in CP0021.MEM 

' must be within the following 
: range. 

LITERAL 


! Type Zero Sub-Types: 
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BLZ_LOWEST 


BLISS_Z_ FORMAL 
BLISS_2_ SYMBOL 


BLZ_HIGHEST 


nN NOS 


. 


Ld 
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' Lowest variable type we support. 


Description of a ROUTINE formal. 
A BLISS LOCAL symbol. 


Highest variable type we support. 


PA 
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‘ee 
; End of PATRTS.REQ 
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